﻿Public Class TrabajoFinal
    'ocd = Objeto de la capa de datos. ocdTrabajoFinal
    'instanciamos una variable tomando como referencia la clase producto del proyecto datos
    Dim ocdTrabajoFinal As New CapaDatos.TrabajoFinal


    Public Sub InsertarTrabajoFinal(ByVal nroExpedienteTF As String, ByVal dniAlumno As String, ByVal nombreTrabajo As String _
                        , ByVal dniProfesorGuiaTF As String, ByVal dniProfesorAsesorTF As String, ByVal fechaTF As DateTime _
                        , ByVal fechaUltimoExamen As DateTime, ByVal planEstudios As String)
        ocdTrabajoFinal.InsertarTrabajoFinal(nroExpedienteTF, dniAlumno, nombreTrabajo, dniProfesorGuiaTF, dniProfesorAsesorTF, fechaTF, _
                                 fechaUltimoExamen, planEstudios)
    End Sub


    Public Sub InsertarNroResolucionTA(ByVal nroResolucionAN As String _
                                , ByVal nroExpediente As String, ByVal fechaResolucion As DateTime)
        ocdTrabajoFinal.InsertarNroResolucionTA(nroResolucionAN, nroExpediente, fechaResolucion)
    End Sub


    Public Function obtenerTrabajosAprobados(ByVal fechaDesde As DateTime, ByVal fechaHasta As DateTime) As DataSet
        Return ocdTrabajoFinal.obtenerTrabajosAprobados(fechaDesde, fechaHasta)
    End Function

    Public Function obtenerTrabajosAprobados() As DataSet
        Return ocdTrabajoFinal.obtenerTrabajosAprobados()
    End Function

    Public Function obtenerTrabajosAprobados(ByVal nroExpediente As String) As DataSet
        Return ocdTrabajoFinal.obtenerTrabajosAprobados(nroExpediente)
    End Function

End Class
